#include<bits/stdc++.h>
using namespace std;

long long f[5];	// 2 20 202 2023
bool isPrime[5000005];
signed prime[5000005];

signed main() {
	char T;
	cin >> T;

	if (T == 'A') {
		for (int i = 1; i <= 2023; i++) {
			string s = to_string(i);
			for (auto j : s) {
				if (j == '2') {
					f[0]++;
					f[2] += f[1];
				}
				if (j == '0') {
					f[1] += f[0];
				}
				if (j == '3') {
					f[3] += f[2];
				}
			}
		}
		cout << f[3];
	} else {
		for (int i = 2; i <= 5e3; i++) {
			if (!isPrime[i]) {
				for (int j = i * i; j <= 5e6; j += i) {
					isPrime[j] = 1;
				}
			}
		}

		int cnt = 0;
		for (int i = 2; i <= 5e6; i++) {
			if (!isPrime[i]) {
				prime[cnt++] = i;
			}
		}

		long long ans2 = 0;
		for (int i = 0; i < cnt; i++) {
			__int128 p = prime[i];
			p *= p;
			if (p >= 23333333333333)
				break;
			for (int j = i + 1; j < cnt; j++) {
				__int128 q = prime[j];
				q *= q;
				__int128 pq = p * q;
				if (pq > 23333333333333)
					break;
				if (pq >= 2333)
					ans2++;
			}
		}
		cout << ans2;
	}
	return 0;
}
